home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 August / Ahoy_Magazine_86-08_1986_Double_L.d64 / Encoder Comal (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  313 b   |  16 lines
  1. 1 //  commodares problem #28-4:
  2. 2 //      elegant encoder
  3. 3 //  solution by
  4. 4 //      paul claessen
  5. 5 //   >> comal solution <<
  6. 10 input a$
  7. 20 v:=0
  8. 30 for i:=1 to len(a$) (NULL)
  9. 40   v:=v-(ord(a$(i:i))-64)
  10. 50 endfor i
  11. 60 for i:=1 to len(a$) (NULL)
  12. 70   tv:=v-(ord(a$(i:i))-64)
  13. 80   tv:=tv mod 29
  14. 90   print chr$(tv+64),
  15. 100 endfor i
  16.